home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / H-Graphics / (c)h4.d64 / Kml pad scan 1 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  810b  |  30 lines

  1. 5 REM*SIMPLE ML KOALA PAD SCAN
  2. 6 REM*RELOCATABLE
  3. 7 REM*BY ROGER D. BURGE,                         LONDON, ONTARIO, CANADA
  4. 19 POKE53281,1:PRINT"[147][144]             ML PAD SCAN #1             "
  5. 20 PRINTSPC(11)"BY  ROGER D. BURGE[144]
  6. 21 [153]"RETURNS PAD X AT 251
  7. 22 PRINT"RETURNS PAD Y AT 252
  8. 25 [153]"RETURNS BUTTONS AT 253
  9. 26 PRINT"BUTTON #1 =1
  10. 27 [153]"BUTTON #2 =2
  11. 28 PRINT"BUTTONS #1 + #2 =3
  12. 30 [153]"PRESS A KEY FOR DEMO
  13. 31 PRINT"HIT  F1 [146] TO EXIT & LIST SUBROUTINE":POKE198,.
  14. 41 GETA$:IFA$=""THEN41
  15. 42 POKE198,.
  16. 100 FORT=820TO874:READA:POKET,A:NEXT:PRINTPEEK(874)
  17. 105 SYS820:PRINTPEEK(251),PEEK(252),PEEK(253)
  18. 106 GETA$:IFA$="[133]"THENLIST100-
  19. 107 GOTO105
  20. 110 DATA162,128,202,224,0,208,251
  21. 115 DATA173,25,212,133,251
  22. 120 DATA173,26,212,133,252
  23. 125 DATA173,1,220
  24. 130 DATA41,12,201,4,208,4,169,2,208,18
  25. 135 DATA201,8,208,4,169,1,208,10
  26. 140 DATA201,0,208,4,169,3,208,2
  27. 145 DATA169,0,133,253
  28. 150 DATA169,0,133,198
  29. 155 DATA96
  30.